home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 001-010 / amok02 / m2code / m2codedemo / drawlines.mod < prev    next >
Encoding:
Modula Implementation  |  1993-11-04  |  735 b   |  34 lines
  1. IMPLEMENTATION MODULE DrawLines;
  2.  
  3. FROM SYSTEM IMPORT BYTE,WORD,LONGWORD,ADDRESS,PROCESS,CODE,SETREG,REGISTER;
  4.  
  5. CONST
  6.   MOVEMS = 48E7H;
  7.   MOVEML = 4CDFH;
  8.  
  9. (*------  DrawLines  ------*)
  10.  
  11. PROCEDURE DrawLines(a:ADDRESS;b:ADDRESS);
  12.  
  13. BEGIN
  14.  
  15.   CODE(MOVEMS,03002H);
  16.  
  17.   SETREG(10,ADDRESS(a));
  18.   SETREG(14,ADDRESS(b));
  19.  
  20.   CODE(07610H,04242H,0224AH,04240H,04241H,04EAEH,0FF10H,0224AH);
  21.   CODE(03002H,0323CH,000FFH,04EAEH,0FF0AH,0224AH,0303CH,0027FH);
  22.   CODE(0323CH,00000H,04EAEH,0FF0AH,0224AH,04240H,0323CH,000FFH);
  23.   CODE(04EAEH,0FF10H,0224AH,03002H,04241H,04EAEH,0FF0AH,0224AH);
  24.   CODE(0303CH,0027FH,0323CH,000FFH,04EAEH,0FF0AH,05442H,0B47CH);
  25.   CODE(00280H,065B0H,05343H,066AAH);
  26.  
  27.  
  28.   CODE(MOVEML,0400CH);
  29.  
  30. END DrawLines;
  31.  
  32. BEGIN
  33. END DrawLines.
  34.